home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / pc_ham2 / logenter.2 < prev    next >
Encoding:
Text File  |  1985-09-28  |  3.6 KB  |  109 lines

  1. 10 REM LOGENTER VER 791008
  2. 20 ERRSET 820,E1,E2
  3. 40 REM "Copyright Snow Micro Systems Inc. 1979"
  4. 50 GOSUB 5010 \REM SET UP VARIABLES
  5. 60 GOSUB 5050 \ REM GET DATA NAME
  6. 70 PRINT \ N1=N \E9=1\ REM SET INIT NUMBER
  7. 80 IFN>80 THEN PRINT"OPENING LOG NOW"
  8. 90 OPEN #1,L1$
  9. 100 FOR I=1 TO N
  10. 110 READ #1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  11. 120 NEXT \ REM POINTER SHOULD NOW BE SET UP TO WRITE
  12. 130 PRINT
  13. 140 IF N>0THEN160
  14. 150 PRINT\PRINT "BRAND NEW LOG BOOK"\ PRINT\ GOTO 180 
  15. 160 PRINT"Last entry was :-"
  16. 165 I=I-1
  17. 170 GOSUB5015 \ GOSUB5020
  18. 180 PRINT\PRINT"New Entry Information  "\PRINT
  19. 190 GOSUB 550 \ REM DATE
  20. 200 GOSUB 640 \ REM MODE
  21. 210 GOSUB 600 \ REM  POWER
  22. 220 GOSUB 620 \ REM  FREQ/BAND
  23. 230 Q1=0 \ Q2=0 \ REM MAIN LOOP
  24. 240 GOSUB 660 \ REM REST OF DATA
  25. 250 A=0 \ I=N+1 \ PRINT \GOSUB 5015 \ GOSUB 5020
  26. 260 INPUT"OK ?",A$
  27. 270 IF A$(1,1)="Y" THEN 280 ELSE 440
  28. 280 GOSUB 760 \ REM WRITE TO DISC
  29. 290 INPUT "Another Entry ?  ",A$
  30. 300 IF A$(1,1)="Y" THEN 440
  31. 310 IF A$(1,1)="A"  THEN 410
  32. 320 CLOSE #1 \ REMWRITING IS OVER
  33. 330 OPEN #0,L2$
  34. 340 WRITE #0,N
  35. 350 CLOSE #0
  36. 360 GOTO 5045
  37. 410 IF N>0 THEN N=N-1
  38. 420 GOTO 320
  39. 430 CHAIN "SYSTEM,"+STR$(I)
  40. 440 INPUT "Has DATE, MODE, POWER or FREQ/BAND Changed ?  ",A$\IFA$=""THEN440
  41. 450 IF A$(1,1)="N" THEN 230 \ REM KEEP GOING
  42. 460 INPUT "Has FREQ/BAND changed ?  ",A$\IFA$=""THEN460
  43. 470 IF A$(1,1)="Y" THEN GOSUB 620
  44. 480 INPUT "Has POWER changed ?  ",A$\IFA$=""THEN480
  45. 490 IF A$(1,1)="Y" THEN GOSUB 600
  46. 500 INPUT "Has MODE changed ?  ",A$\IFA$=""THEN500
  47. 510 IF A$(1,1)="Y" THEN GOSUB 640
  48. 520 INPUT"Has DATE changed ?  ",A$\IFA$=""THEN520
  49. 530 IFA$(1)="Y" THEN GOSUB 550
  50. 540 GOTO 230
  51. 550 INPUT"Day (1-31) ?  ",D1\IFD1<1ORD1>31THEN550
  52. 560 INPUT"Month ( 1 - 12 ) ?  ",D2\IFD2<0ORD2>12THEN560
  53. 570 INPUT "Year (19xx) ?",D3 \ IF D3<1900 THEN 570
  54. 580 D3 = D3 - 1900
  55. 590 RETURN
  56. è600 INPUT "Power (watts) ?  ",P
  57. 610 RETURN
  58. 620 INPUT "Freq/Band ?  ",F
  59. 630 RETURN
  60. 640 INPUT "Mode ?  ",M$\IFM$=""THEN640
  61. 645 IF M$(1,1)<>" "THEN650ELSEM$=M$(2,LEN(M$))\GOTO645
  62. 650 RETURN
  63. 660  PRINT \INPUT "Time ?  ",T
  64. 670 INPUT "Call sign ?  ",C$\IFC$=""THEN670
  65. 675 IF C$(1,1)<>" "THEN680ELSEC$=C$(2,LEN(C$))\GOTO675
  66. 680 INPUT1 "Report Received ?  ",R \ PRINT TAB(32),
  67. 690 INPUT "Report sent ?  ",S
  68. 700 INPUT1"QSL card sent ?  ",A$ \IFA$=""THEN700
  69. 710 PRINTTAB(32),\ IF A$(1,1)="Y" THEN Q1=1
  70. 720 INPUT"QSL card received ?  ",A$ \IFA$=""THEN720
  71. 730 IF A$(1,1)="Y" THEN Q2=1
  72. 740 INPUT "Comments ?  ",X$
  73. 750 RETURN
  74. 760 REM PUT IT ON DISC
  75. 770 D1=INT(D1) \D2=INT(D2)\D3=INT(D3)\S=INT(S)
  76. 780 R=INT(R)\P=INT(P)
  77. 790 WRITE#1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  78. 800 N=N+1
  79. 810 RETURN
  80. 820 ERRSET 820,E1,E2
  81. 830 IF E1<>5650 THEN 840 ELSE IF I>4 THEN 5670 ELSE 5660
  82. 840 IF E2=15 THEN 360 \ REM CONTROL C INHIBIT
  83. 860 IF E1=790 AND E2=3 THEN 1070
  84. 870 IF E1=1130 AND E2=3 THEN 1150
  85. 890 IF E2<>8 THEN  900 ELSE PRINT"HARD DISC ERROR"\ GOTO 360
  86. 900 REM
  87. 970 IF E2<>7 THEN 980 ELSE PRINT"FILE ERROR"\GOTO360
  88. 980 REM
  89. 1000 PRINT"ERROR ",E2,"AT LINE ",E1\GOTO360
  90. 1020 PRINT "log file ",L$," does not exist "\GOTO60
  91. 1070 N=9999999
  92. 1080 PRINT"Log file is full, recovering to last disc entry"
  93. 1090 CLOSE#1
  94. 1100 OPEN #1,L1$
  95. 1110 FOR I=1 TO N
  96. 1120 I1=D1\I2=D2\I3=D3\C1$=C$ \ REM SAVE OLD CALL
  97. 1130 READ #1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  98. 1140 NEXT
  99. 1150 N=I-1
  100. 1160 PRINT
  101. 1170 PRINT "LAST ENTRY ON DISC IS QSO WITH ",C1$," ON ",I1,I2,I3
  102. 1180 PRINT"file is now full, use 'NEWLOG' to open a new one"
  103. 1190 PRINT
  104. 1200 GOTO 320
  105. 1210 IF E9=0 THEN 360 \REM ABORT
  106. 1220 IF N<>N1 THEN 1240
  107. 1230 GOTO 330
  108. 1240 IF N>0 THEN N=N-1
  109. 1250 GOTO 360
  110. 5000 REM SUBROUTINE PACKAGE VER 790817
  111. è